perm filename COMP.ALP[HAL,HE] blob sn#238493 filedate 1976-09-27 generic text, type T, neo UTF8
		;Start of program
	XPROG
		;BLOCK
	XMVAR
		;
	36
		;
	40
		;
	42
		;
	44
		;
	46
		;$B1.G
	50
		;$B1.F
	52
		;$B1.E
	54
		;$B1.D
	56
		;$B1.C
	60
		;$B1.B
	62
		;$B1.A
	64
	0
		;Assignment
	XPUSH
	L1
	XCHNGE
		;$B1.A
	64
		;Assignment
	XPUSH
	L2
	XCHNGE
		;$B1.B
	62
		;Assignment
	XPUSH
	L3
	XCHNGE
		;$B1.C
	60
		;Assignment
	XPUSH
	L4
	XCHNGE
		;$B1.D
	56
		;Assignment
	XPUSH
	L5
	XCHNGE
		;$B1.E
	54
		;Assignment
	XPUSH
	L6
	XCHNGE
		;$B1.F
	52
		;Move
	XMOVE
	L7
	4
		;Move
		;first argument
	XGTVAL
		;$B1.C
	60
		;second argument
	XPUSH
	L10
	XTTMUL
	XCHNGE
		;
	44
	XMOVE
	L11
	4
	XGTVAL
		;
	44
	XCHNGE
		;BDEPROACH
	30
		;Move
		;first argument
	XGTVAL
		;$B1.E
	54
		;second argument
	XPUSH
	L16
	XTTMUL
	XCHNGE
		;
	42
	XMOVE
	L17
	4
	XGTVAL
		;
	42
	XCHNGE
		;BDEPROACH
	30
		;Move
		;first argument
	XGTVAL
		;$B1.F
	52
		;second argument
	XPUSH
	L23
	XTTMUL
	XCHNGE
		;
	40
	XMOVE
	L24
	4
	XGTVAL
		;
	40
	XCHNGE
		;BDEPROACH
	30
		;Move
	XMOVE
	L30
	4
		;Block end cleanup
	XKVAR
		;
	36
		;
	40
		;
	42
		;
	44
		;
	46
		;$B1.G
	50
		;$B1.F
	52
		;$B1.E
	54
		;$B1.D
	56
		;$B1.C
	60
		;$B1.B
	62
		;$B1.A
	64
	0
		;End of BLOCK
	XENDP
		;End of program